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on syey - Lexical comparison functions 
1-001/ ; File: FORLEX.MAR 


F 
/ 
APRA RRRRRRRRRAAARAAALELALELA SEES SESE SEES EEE SESE ERE E EEE REECE SESE C SSCS SEELEY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH TH ER F SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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*+¢ j 
; FACILITY: FORTRAN Language support Library | 
; ABSTRACT: 


This module contains routines to perform lexical comparison 

of character ate ions assed by descriptor. They are primarily 

for conformance with FORTRAN-/7, but are useable from any 

Language. Note that most languages have these functions 
“in. 


: bui 


Sete Se Se Oe Se Se Se Se Oe Oe Se Be Oe OH Se Oe Se Se Se SHS Se Se Se ee Oe Se Oe Se Oe Oe Be Oe ee 


; ENVIRONMENT: User Mode, AST Reentrant 


“AUTHOR: Steven B. Lionel, CREATION DATE: 30-Jan-79 
MODIFIED BY: 


; EDIT HISTORY: 
1-001 - Original. SBL 30-Jan-79 
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; «SBTTL DECLARATIONS 
; INCLUDE FILES: 


EXTERNAL DECLARATIONS: 


-DSABL GBL ; Prevent undeclared 
: symbols from being 
; automatically global 


: MACROS: 
: EQUATED SYMBOLS: 


string] = 4 
string2 = 8 


OWN STORAGE: 


; First string argument 
; Second string argument 


: PSECT DECLARATIONS: 


-PSECT _FORSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


DO NINN NNN NN PAA AAA AAA AMI 
SODONA NE WN CO ODNOA UE WN O COONAN 
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ror 


| 
| 
| 
| 
| 
| 


ee. 
comparison functions 15-SEP-1984 23:54:56 VAX/VMS Macro Vv04-00 Pa 
L nical conper ison functions 66-SEP-1984 $5:89:38 FORRTL.SRCJFORLEX.MAR; 1 wt! 3) 


a -SBTTL FORSLEX = Lexical comparison functions 
FUNCTIONAL DESCRIPTION: 


The four functions in this module compare two character 
strings according to the ASCII collating sequence. 


Most VAX-11 al level kanguages already implement these 
functions in-line, but ANS] FORTRAN-77 requires the 
FORTRAN functions LLE, LGT, LGE and LLT to be available. 


in sorent cases, FORTRAN IV=PLUS will generate the necessary 
nstructions in-line, but since a programmer can force an 
external reference to be generated, these routines are 
necessary. 


Each routine takes two arguments, the addresses of string 
descriptors. The strings are compared, blank padding where 
necessary, and a TRUE or FALSE value is returned according 

to whether the appropriate condition is satisfied or not. 

TRUE is a longword of all 1 bits, FALSE is a longword of zero. 
; CALLING SEQUENCE: 


ORSLLT (stringl.rx.dx, string2.rx.dx) 
ing] < stringd, FALSE otherwise 
0 


SOOCOCOCOCCOOCOCOCOOCOOCOOOOOOSOOSOOOoOO 
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condition.wlu.v = 
TRUE if st 

condition.wlu. RSLLE (stringl.rx.dx, string2.rx.dx) 
TRUE if string] <= string2, FALSE 


.v = FORSLGE (stringl.rx.dx, string2.rx.dx) 
if string] >= string2, FALSE otherwise 


= FORSLGT Cote ing’ 02-83 string2.rx.dx) 
string] > stringc, FALSE otherwise 


F 
r 
= Ff 
str otherwise 
F 


condition.wl 
TRU 


E 
condition.wl 
TRUE 


; INPUT PARAMETERS: 
trina ~ deatrigtar Cooked ae are DCRU:LENGTR and 
DSCSA_POINTER, = 
string2 - Same as string!. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
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bot FORSLEX = L xical conparieen functions Pat et 93:25:78 LPORRTL. SREIFORLEX MAR: 1 . db 
179 3; FUNCTION VALUE: : 
12) : TRUE (+1) if condition is satisfied : 
148 ; FALSE (0) if condition is not satisfied. : 
144 5 SIDE EFFECTS: : 
145 Py ° 
198 3 NONE ° 
8 147 ; ° 
$00 1eg ; 
0096 009 139 -ENTRY FORSLLT, “M<R2, R3> 3; Lexical less than | ; 
as 151 BSBB COMPARE ; Compare the strings | ° 
4 1F 0004 13 BLSSU TRUE ; TRUE if Less than 
B 11 444 137 BRB FALSE 3; Otherwise FALSE 
000C 0006 155 eENTRY FORSLLE, “M<R2, R3> i; Lexical less than or equal 
14 10 QOOA 156 BSBB COMPARE : conpace the strings 
21 18 QO0O0C 157 BLEQU TRUE ; TRUE if less than or equal | 
23.—Cié«d1z1 Bn0e 138 BRE FALSE 3; Otherwise FALSE 
000c 0010 160 -ENTRY FORSLGE, “M<R2, R3> , Lexical groster than or equal | 
0C 10 0012 161 BSBB COMPARE : Compare the strings 
19 1E 0014 16¢ BGEQU TRUE ; TRUE if greater than or equal 
1B 11 Bot8 197 BRB FALSE 3; Otherwise FALSE 
000c 0018 #£«165 -ENTRY FORSLGT, “M<R2, R3> 3 Lexical greater than 
04 10 QOIA 166 BSBB COMPARE ; Compare the strings 
11 IA OO1C 167 BGTRU TRUE ; TRUE if greater than or equal 
13°—=«W1 9h 198 RB FALSE 3; Otherwise FALSE 
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-SBTTL Local functions for lexical comparisons 


COMPARE 


COMPARE loads the two string descriptors into RO-R3, 
does a conpare on the strings and returns to the local 
caller. Since the condition codes are preserved, the 

local caller may do a conditional branch for whatever 
condition is appropriate. 


COMPARE : 
mMOVQ i; Get first descriptor 


; Get second descriptor 


MOVQ 
CMPCS » R2, (RS) ; Compare strings 
RSB ; Return to local caller 
TRUE: 
50. =—<01 CE MNEGL #1, RO ; Return TRUE 
04 RET ; Return 
FALSE: 
50 D4 CLRL RO ; Return FALSE 
04 RET 3; Return 


o 
Ww 
“ 
~N 
~m 
oOo 
vw 
mo 
o 
= 
oo 
osx 
Wwwom 
Onn 
~~ 
wmovo”7o 
SOOOCCOOCOOCOOOOOOCOOOOOOOOOOOOOOOO 
OOOCCCOCOCOCOCOOOCOOOOOCOOoOOoOO 
AOOOUMNWWWW TF HMOLOCOOCCO 
Ne 
SGDOOOOO0O0 OOO OCWWOWOWOWOOOO NNN NNN 
SOODWNA MEW 0 OD NAU ES WO OO NOUS win 
i + 
f a 
Deo 
oven 
> ce 
75 
ed ed 
zaS 
a0 oO 
~rN— 
am 
>> 
=2=vvU 
~~ 
Pe 
~ 
zDD 
“NO 


WAWAWN 


Ll 9 

FORSLEX = Lexical comparison functions i oa | tbs $333$:36 ea oe cro V04-00 Page 
Symbol table 66-SEP-1984 10:57:14 (CFORRTL.SR Cir ORLEX.MAR; 1 
Fonp ent 8 R 1 

at ty R 1 
FOR LGE ° RG 1 
FORSLGT 0 18 RG 1 
FORSLLE 0 8 RG 1 

SLLT 0 RG 01 
STRING! = 00000004 
STRING2 = 00000 3 

E QO00002F R 01 

tee sceose eeecceeceon 4 
: i _Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
- ABS, 00000000 0.) 0.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_F ORSCODE 00000036 (¢ 54.) 8° 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
$eoeece seen een eo ccees mom ee me 
; Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 3 8:00:08 06 00:00:01.57 
Command processing 11 0:00:00.4 00: 8:05 «64 
Pass 1 70 Se Ss 00:00:02.62 
Symbol table sort 0 00:00: 944 00:00:00.00 
Pass 2 51 00:00:00.4 00:00:01.67 
Symbol table output 2 00:00:00.03 00:00:00.03 
Psect synopsis output 2 00:00: 8°08 00:00:00.02 
Cross-reference output 0 Ba BO:6 .0 00:00:00.00 
Assembler run totals 270 0:00:01.49 00:00:08.55 


The working set Limit was 900 pages. 

2198 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 9 non-local and 0 local symbols. 
00 source Lines were read in Pass 1, producing 19 object records in Pass 2. 
pages of virtual memory were used to define 0 macros. 


sot e es ee eee ewe nee c ees wee wee $ 


Macro library name Macros defined 
“$255SDUA2B:(SYSLIBJSTARLET.MLB;2 i (i‘ StS 0. 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORLEX/OBJ=OBJ$:FORLEX MSRC$:FORLEX/UPDATE=(ENHS$:FORLEX) 
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